home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
wildcat
/
a_menu35.zip
/
A-MLOGON.WCX
(
.txt
)
< prev
next >
Wrap
Wildcat! WCX
|
1996-03-31
|
1KB
|
86 lines
'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx 1185 bytes 03/09/122 08:19:28am
'! Code Segment Size :1023 bytes
'! Data Segment Size :4513 bytes
'! String Segment Size:162 bytes
'! Compiled with WCC version 4.11
Dim s4463(0 To 6) As String
Dim s4491 As String
Dim s4495 As String
Dim i4499 As Integer
Dim s4501 As String
Dim s4505 As String
Dim l4509 As Long
Dim l65530_ As Long
Dim i65534_ As Integer
s4501 = ParamStr(1)
s4491 = ProgPath + "A-MENU\A-MLOGON.CFG"
If Exists(s4491) Then
Reset
Open s4491 For Input As 1
119 For i4499 = 1 To 6 Step 1
Input #1, s4463(i4499)
s4463(i4499) = Trim(s4463(i4499))
s4463(i4499) = UCase(s4463(i4499))
Next
341 Close 1
End If
346 If s4501 = "X" Then
Else
369 If FastLogonChar = "!" Then
GoSub 664
End If
391 If s4501 = "X" Then
Else
414 If s4501 = "O" Then
Else
437 If FastLogonChar = "*" Then
CheckMailAtLogon
Else
462 If Left(s4463(1), 1) = "Y" Then
HelloFiles
End If
508 If Left(s4463(2), 1) = "Y" Then
CheckMailAtLogon
End If
554 If Left(s4463(3), 1) = "Y" Then
CheckNewsletter
End If
600 If Left(s4463(4), 1) = "Y" Then
CheckBulletins
End If
End If
End If
646 Chain ProgPath + "A-MENULD.WCX", ""
664 l4509 = User.UserId
s4505 = Right("00000000" + Str(l4509), 6)
s4505 = ProgPath + "A-MENU\FLAGS\AL" + s4505 + ".FLG"
If Exists(s4505) Then
Del s4505
s4501 = "X"
Else
764 Reset
Open s4505 For Output As 1
Print #1, "*** Processing OMR ***"
Close 1
s4501 = "O"
End If
810 Return
End If
End If
811 s4495 = ProgPath + "A-MENU\" + Left(s4463(6), 12)
If Exists(s4495) Then
DisplayTextFile(s4495)
Locate 22, 1
WaitEnter
End If
888 Goodbye 1213417543
s4495 = ProgPath + "\BATCH\POSTCALL.BAT"
If Exists(s4495) And Left(s4463(5), 1) = "Y" Then
Shell s4495, ""
End If
974 End